﻿Public Class frmAñadir

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Me.Close()
    End Sub

    Private Sub btnAñadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAñadir.Click
        Dim palabra As New ClasesAhorcado.Palabra(txtEnunciado.Text, txtDescripcion.Text)
        Dim msg As String = MiJuego.Añadir(palabra)
        MiJuego.Guardar()
        If msg <> "" Then MessageBox.Show(msg)
    End Sub
End Class